if the textStyle of the clickChunk contains group then
popupField "cd fld XCMDs"
end if
end mouseUp
</script>
</part>
<part>
<id>23</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>123</left>
<top>77</top>
<right>362</right>
<bottom>291</bottom>
</rect>
<style>opaque</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Helvetica</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<textHeight>13</textHeight>
<name>XCMDs</name>
<script></script>
</part>
<content>
<layer>card</layer>
<id>8</id>
<text>Dr Nigel Perry, Department of Computer Science, Massey University,
Palmerston North, New Zealand
N.Perry@massey.ac.nz</text>
</content>
<content>
<layer>card</layer>
<id>9</id>
<text>The ScrollBar XFCN implements scroll bar controls for HyperCard. ScrollBar() must be invoked from a button/field script and will take its size from its parent object. After the scroll bar value has been changed ScrollBar() will optionally paint an updated picture of the bar onto the card or background as appropriate. ScrollBar() will also optionally send its parent object a message while it is tracking the scroll bar thumb.</text>
</content>
<content>
<layer>card</layer>
<id>12</id>
<text>Thanks to Maurice Volaski and his ScrollControl III for the original idea</text>
</content>
<content>
<layer>card</layer>
<id>23</id>
<text>As well as ScrollBar this stack contains:
PopupField XCMD: This "pops" fields into windows which exist until a mouse click. It is being used to show you this. For more details see my stack popupfield-setcursor.
VolumeLevel XFCN: Allows you to read and alter the volume level. Comes from my Macintalk 4.0 stack.
ResHandle XFCN: Resource handling functions for HyperCard. The heart of the resource-library stack.
All the above stacks should be available on sumex, umich or other archives.
(Click to continue)</text>
</content>
<content>
<layer>card</layer>
<id>28</id>
<text><span class="style1">his package consists of the stack “ScrollBar Stack v2.0”. All </span><span class="style11"><a href="#" class="group">XCMD & XFCN</a></span><span class="style1"> code resources in this package are Copyright © 1992 by Nigel Perry. Code resources written using Think C therefore parts may be © Symantec.
</span><span class="style9">PostcardWare
</span><span class="style1">
If you appreciate (or just use!) this package then please send me a postcard of your home area or town. Thank you.
</span><span class="style10">
LICENSE AGREEMENT</span><span class="style1">
ΓÇ£You,ΓÇ¥ ΓÇ£your,ΓÇ¥ and the ΓÇ£userΓÇ¥ refers to any person or entity which acquires or uses this software.
ΓÇ£SoftwareΓÇ¥ refers to the computer programs identified above, together with all codes, techniques, software tools, formats, designs, concepts, methods, ideas, and documentation associated with the computer program(s). The term also includes all copies of any part of the software and documentation.
ΓÇ£AuthorΓÇ¥ refers to the author of this software, Dr Nigel Perry
This software is owned by the author and contains valuable and proprietary information of the author. If you violate any part of this agreement, your right to use this software terminates automatically. In the event of termination of this agreement, you must destroy all copies of this software and derivatives of this software in your possession.
This software is being licensed to you as provided by the terms of this agreement.
(1) You are permitted to copy and distribute this package unchanged, except as excluded by (3) and (4) below, provided that this notice is preserved on all copies.
(2) If you are NOT an author of ShareWare software then you may use all or part of this package in stacks & applications for your personal use and in stacks & applications which you distribute free, except as excluded by (4) below, provided this notice is preserved.
(3) If you ARE an author of ShareWare, then you may use this package for your personal use, except as excluded by (4) below, for a period of 7 days. To obtain permission to use this package after this period you must supply the author with a waiver in writing for the fees of all your ShareWare products. You will then be granted the same rights to use this software as is given to non ShareWare authors in (2) above.
(4) This software, any part of it, or any derivative of it, cannot be used: for work, buisness, commercial or profit-making purposes; included with, or as part of, other products which are sold or distributed for profit; as an inducement to buy other products; or included in ShareWare; without the permission of the author. A licence fee will usually be charged for any use covered by this clause. School, college & university teachers, lecturers and researchers, and charitable institutions will normally not be charged a licence fee for use of this software in their work.
(5) No warranty, either express or implied, is made with respect the softwares performance or fitness for purpose.
(6) You may not reverse engineer, disassemble, decompile, or otherwise attempt to discover the logic or source code to this software.
(Without prejudice to the above, the conditions might be paraphrased as</span><span class="style7"> ΓÇ£Provided you don't make money out of this software or charge me for your software [unless written as part of your job and sold as a commercial product], then you may use this software for free. If you wish to make money out of my software or charge me for yours then you don't get to use this for freeΓÇ¥</span><span class="style1">. That's reasonable isn't it?)</span></text>
</content>
<name></name>
<script>on openStack
set the scroll of cd fld "CopyRight" to 0
pass openStack
end openStack</script>
</card>
card_4363.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text>put ScrollBar(mouseDown, barStyle, doCallBack, min, max, current[, page]) into final</text>
</content>
<content>
<layer>card</layer>
<id>3</id>
<text><span class="style1">f </span><span class="style2">true</span><span class="style1"> ScrollBar() will asume a mouse down event has occurred, deal with the event and exit. If </span><span class="style2">false</span><span class="style1"> ScrollBar() will remain active as long as the mouse is within the scroll bar region and handle all mouse events during that time. Generally use </span><span class="style2">true</span><span class="style1"> if ScrollBar() is called from a </span><span class="style2">mouseDown</span><span class="style1"> handler, </span><span class="style2">false</span><span class="style1"> if called from a </span><span class="style2">mouseEnter</span><span class="style1"> handler. </span></text>
</content>
<content>
<layer>card</layer>
<id>4</id>
<text><span class="style1">f </span><span class="style2">paint</span><span class="style1"> ScrollBar() will draw a B&W control </span><span class="style7">and</span><span class="style1"> paint a </span><span class="style11"><a href="#" class="group">picture</a></span><span class="style1"> of the scroll bar onto the card or background before exiting. If </span><span class="style2">colour</span><span class="style1"> then a colour control is drawn if your Mac supports them. Anything else draws a B&W control.</span></text>
</content>
<content>
<layer>card</layer>
<id>5</id>
<text><span class="style1">f </span><span class="style2">true</span><span class="style1"> ScrollBar() will send a </span><span class="style2">trackScroll</span><span class="style1"> message to the object which called it while tracking the control. The </span><span class="style2">trackScroll</span><span class="style1"> handler can obtain the thumb value from the global </span><span class="style2">ScrollValue</span><span class="style1">.</span></text>
</content>
<content>
<layer>card</layer>
<id>6</id>
<text>The minimum, maximum and current thumb value for the scroll bar.</text>
</content>
<content>
<layer>card</layer>
<id>7</id>
<text><span class="style1">he amount to adjust the thumb by for mouse clicks in the page up/down regions. If not given a value of 2 is used.
If a negative value is used and barStyle is </span><span class="style2">paint</span><span class="style1"> then ScrollBar() will paint onto the card or background without handling any events; this is used to force a paint when setting up a scroll bar.</span></text>
</content>
<content>
<layer>card</layer>
<id>16</id>
<text>The final value of the thumb.</text>
</content>
<content>
<layer>card</layer>
<id>21</id>
<text>ScrollBar() provides standard scroll bar controls as HyperCard objects. ScrollBar() must be invoked from either a button or field script and will draw the scroll bar to cover the rectangle of its parent object.</text>
</content>
<content>
<layer>card</layer>
<id>24</id>
<text>The userLevel does NOT need to be set to painting when barStyle is paint – ScrollBar() will adjust and reset it if need be. ScrollBar() paints onto the same layer, card or background, as its parent object.The painting is what causes the delay when exiting from ScrollBar(). Warning: You may get out of memory errors when ScrollBar attempts to paint (at least I sometimes do on a 1M Mac+…), in which case the scroll bar picture will be left on the clipboard.
(Click to continue)</text>
</content>
<name></name>
<script></script>
</card>
card_8553.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
put ScrollBar(false, paint, true, 0, Range, thumb, Page) into thumb
lock screen
set the scroll of cd fld "Scroll1" to thumb * Scale1
set the scroll of cd fld "Scroll2" to thumb * Scale2
set the scroll of cd fld "Scroll3" to thumb * Scale3
unlock screen
end mouseEnter
on trackScroll
global ScrollValue, Scale1, Scale2, Scale3
lock screen
set the scroll of cd fld "Scroll1" to ScrollValue * Scale1
set the scroll of cd fld "Scroll2" to ScrollValue * Scale2
set the scroll of cd fld "Scroll3" to ScrollValue * Scale3
unlock screen
end trackScroll
on initBar
global Scale1, Scale2, Scale3, Range, Page
lock screen
put the textHeight of cd fld "Scroll1" into Scale1
put the textHeight of cd fld "Scroll2" into Scale2
put the textHeight of cd fld "Scroll3" into Scale3
set the scroll of cd fld "Scroll1" to 0
set the scroll of cd fld "Scroll2" to 0
set the scroll of cd fld "Scroll3" to 0
put the number of lines in cd fld "Scroll1" into lnum
put the height of cd fld "Scroll1" into height
put lnum - trunc(height/Scale1) into Range
put lnum - range into Page
put ScrollBar(false, paint, true, 0, Range, 0, -1) into it
end initBar
</script>
</part>
<part>
<id>7</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>17</left>
<top>250</top>
<right>300</right>
<bottom>271</bottom>
</rect>
<style>opaque</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>8</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>308</left>
<top>116</top>
<right>494</right>
<bottom>270</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Helvetica</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>15</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>9</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>15</left>
<top>15</top>
<right>497</right>
<bottom>273</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Script</name>
<script></script>
</part>
<content>
<layer>card</layer>
<id>1</id>
<text><span class="style1">crollBar() may be used to implement
multiple scrolling fields. To do this
set doCallBack to </span><span class="style4">true</span><span class="style1"> and write a
</span><span class="style4">trackScroll</span><span class="style1"> handler to read the
current thumb value and adjust the
scroll value of your fields. To achieve
a clean scroll </span><span class="style4">lock</span><span class="style1"> the screen within
your </span><span class="style4">trackScroll</span><span class="style1"> handler before
adjusting the scroll values and </span><span class="style4">unlock</span><span class="style1">
it again after. ScrollBar() will set
things up so that this </span><span class="style4">lock</span><span class="style1">/</span><span class="style4">unlock</span><span class="style1"> will
not destroy the scroll bar picture. For
the best effect use a </span><span class="style4">mouseEnter</span><span class="style1">
handler to invoke ScrollBar() as this
will provide a quick response to
mouse clicks in the scroll bar.</span></text>
</content>
<content>
<layer>card</layer>
<id>2</id>
<text>ScrollBar() may be used to implement multiple scrolling fields. To do this set doCallBack to true and write a trackScroll handler to read the
current thumb value and adjust the scroll value of your fields. To achieve a clean scroll lock the screen within your trackScroll handler before adjusting the scroll values and unlock it again after. ScrollBar() will set things up so that this lock/unlock will not destroy the scroll bar picture. For the best effect use a mouseEnter handler to invoke ScrollBar() as this will provide a quick response to
mouse clicks in the scroll bar.</text>
</content>
<content>
<layer>card</layer>
<id>4</id>
<text><span class="style1">crollBar() may be used to implement multiple scrolling fields. To do this
set doCallBack to </span><span class="style4">true</span><span class="style1"> and write a </span><span class="style4">trackScroll</span><span class="style1"> handler to read the current thumb value and adjust the scroll value of your fields. To achieve
a clean scroll </span><span class="style4">lock</span><span class="style1"> the screen within your </span><span class="style4">trackScroll</span><span class="style1"> handler before adjusting the scroll values and </span><span class="style4">unlock</span><span class="style1"> it again after. ScrollBar() will set
things up so that this </span><span class="style4">lock</span><span class="style1">/</span><span class="style4">unlock</span><span class="style1"> will not destroy the scroll bar picture. For the best effect use a </span><span class="style4">mouseEnter</span><span class="style1"> handler to invoke ScrollBar() as this will provide a quick response to
mouse clicks in the scroll bar.</span></text>
</content>
<content>
<layer>card</layer>
<id>8</id>
<text><span class="style1">etting barStyle to </span><span class="style4">paint</span><span class="style1"> gives the best æsthetic effect but is slowed down by the HyperCard painting operations, this is the cause of the delay when the mouse leaves the scroll region. Using a </span><span class="style4">mouseEnter</span><span class="style1"> handler causes the cursor to change to an arrow while in the scroll region.</span></text>
</content>
<content>
<layer>card</layer>
<id>9</id>
<text>Script of the scroll bar button:
on mouseEnter
global Scale1, Scale2, Scale3, Range, Page
put the scroll of cd fld "Scroll1" into snum
put round(snum/Scale1) into thumb
put ScrollBar(false, paint, true, 0, Range, thumb, Page) into thumb
lock screen
set the scroll of cd fld "Scroll1" to thumb * Scale1
set the scroll of cd fld "Scroll2" to thumb * Scale2
set the scroll of cd fld "Scroll3" to thumb * Scale3
unlock screen
end mouseEnter
on trackScroll
global ScrollValue, Scale1, Scale2, Scale3
lock screen
set the scroll of cd fld "Scroll1" to ScrollValue * Scale1
set the scroll of cd fld "Scroll2" to ScrollValue * Scale2
set the scroll of cd fld "Scroll3" to ScrollValue * Scale3
unlock screen
end trackScroll
on initBar
global Scale1, Scale2, Scale3, Range, Page
put the textHeight of cd fld "Scroll1" into Scale1
put the textHeight of cd fld "Scroll2" into Scale2
put the textHeight of cd fld "Scroll3" into Scale3
put the number of lines in cd fld "Scroll1" into lnum
put the scroll of cd fld "Scroll1" into snum
put the height of cd fld "Scroll1" into height
put lnum - trunc(height/Scale1) into Range
put lnum - range into Page
put round(snum/Scale1) into thumb
put ScrollBar(false, paint, true, 0, Range, thumb, -1) into thumb
end initBar</text>
</content>
<name></name>
<script>on openCard
global lockInit
if lockInit then exit openCard
send initBar to cd btn "Scroller"
end openCard
</script>
</card>
card_8423.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
put ScrollBar(true, paint, false, 0, 7, orig, 1) into new
if new <> orig then
put VolumeLevel(new) into it
play "Boing"
end if
end mouseDown
on initBar
put ScrollBar(false, paint, false, 0, 7, VolumeLevel(), -1) into it
end initBar
</script>
</part>
<part>
<id>2</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>394</left>
<top>165</top>
<right>454</right>
<bottom>212</bottom>
</rect>
<style>opaque</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>12694</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Sample Tune</name>
<script>on mouseUp
global Tempo, Pitch
put 210 into Tempo
put 4 into Pitch
playTune
set the name of me to "Stop Sample"
set the icon of me to "Sp 0"
repeat forever
if the sound is "done" or the mouse is "down" then exit repeat
end repeat
play stop
set the name of me to "Sample Tune"
set the icon of me to "Music Note"
end mouseUp
</script>
</part>
<part>
<id>3</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>15</left>
<top>15</top>
<right>497</right>
<bottom>273</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Script</name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>3</id>
<text><span class="style1">he scroll bar adjusts the volume level of the Mac using my VolumeLevel() XFCN. ScrollBar() is called using a </span><span class="style5">mouseDown</span><span class="style1"> handler so the scroll bar is not activated unless a click occurs over the bar, this also means that the cursor will not change to an arrow in the scroll region until the button is clicked. No call back is used.
The parent object of the scroll bar is a field — just to demonstrate the use of ScrollBar() from fields…
</span></text>
</content>
<content>
<layer>card</layer>
<id>3</id>
<text>Script of scroll bar field:
on mouseDown
put VolumeLevel() into orig
put ScrollBar(true, paint, false, 0, 7, orig, 1) into new
if new <> orig then
put VolumeLevel(new) into it
play "Boing"
end if
end mouseDown
on initBar
put ScrollBar(false, paint, false, 0, 7, VolumeLevel(), -1) into it
end initBar
</text>
</content>
<name></name>
<script>on openCard
global lockInit
if lockInit then exit openCard
send initBar to cd fld "Volume"
end openCard</script>
</card>
card_3629.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
put ScrollBar(false, standard, true, 0, 7, orig, 1) into new
if new <> orig then
set the name of me to "Volume Level:" && new
put VolumeLevel(new) into it
play "Boing"
end if
set icon of cd btn "Speaker" to 0
end mouseUp
on initButton
set the name of me to "Volume Level:" && VolumeLevel()
end initButton
on trackScroll
global ScrollValue
set icon of cd btn "Speaker" to "Sp" && ScrollValue
end trackScroll
</script>
</part>
<part>
<id>2</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>382</left>
<top>161</top>
<right>415</right>
<bottom>189</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Speaker</name>
<script></script>
</part>
<part>
<id>3</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>369</left>
<top>196</top>
<right>429</right>
<bottom>243</bottom>
</rect>
<style>opaque</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>12694</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Sample Tune</name>
<script>on mouseUp
global Tempo, Pitch
put 210 into Tempo
put 4 into Pitch
playTune
set the name of me to "Stop Sample"
set the icon of me to "Sp 0"
repeat forever
if the sound is "done" or the mouse is "down" then exit repeat
end repeat
play stop
set the name of me to "Sample Tune"
set the icon of me to "Music Note"
end mouseUp
</script>
</part>
<part>
<id>4</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>15</left>
<top>15</top>
<right>497</right>
<bottom>273</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Script</name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>3</id>
<text><span class="style1">his button can also be used to adjust the volume level of the Mac. ScrollBar() is called from a </span><span class="style5">mouseUp</span><span class="style1"> handler, so to get the scroll bar you must first click on the button. As barStyle is </span><span class="style5">standard</span><span class="style1"> the scroll bar will be B&W and will not be painted onto the card by ScrollBar() before exiting, the latter makes the operation faster. While the scroll bar is being adjusted a speaker icon is altered to reflect the current volume, this is done using a </span><span class="style5">trackControl</span><span class="style1"> handler.</span></text>
</content>
<content>
<layer>card</layer>
<id>4</id>
<text>Script of Volume Level button:
on mouseUp
put VolumeLevel() into orig
set icon of cd btn "Speaker" to "Sp" && orig
put ScrollBar(false, standard, true, 0, 7, orig, 1) into new
if new <> orig then
set the name of me to "Volume Level:" && new
put VolumeLevel(new) into it
play "Boing"
end if
set icon of cd btn "Speaker" to 0
end mouseUp
on initButton
set the name of me to "Volume Level:" & VolumeLevel()
end initButton
on trackScroll
global ScrollValue
set icon of cd btn "Speaker" to "Sp" && ScrollValue
end trackScroll
</text>
</content>
<name></name>
<script>on openCard
global lockInit
if lockInit then exit openCard
send initButton to cd btn id 1
end openCard
</script>
</card>
card_6997.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
if the sound is "done" or the mouse is "down" then exit repeat
end repeat
play stop
set the name of me to "Sample Tune"
set the icon of me to "Music Note"
end mouseUp
</script>
</part>
<part>
<id>7</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>350</left>
<top>178</top>
<right>377</right>
<bottom>199</bottom>
</rect>
<style>opaque</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Pitch</name>
<script></script>
</part>
<part>
<id>8</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>443</left>
<top>178</top>
<right>475</right>
<bottom>199</bottom>
</rect>
<style>opaque</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Tempo</name>
<script></script>
</part>
<part>
<id>9</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>15</left>
<top>15</top>
<right>497</right>
<bottom>273</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Script</name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>3</id>
<text><span class="style1">he two buttons both popup a scroll bar when clicked which can then be used to alter the value of the pitch and tempo of the sample tune. The buttons do not call ScrollBar() directly but send a </span><span class="style5">doControl</span><span class="style1"> message to a larger button which is the desired size of the scroll bar. To enable colour scroll bar popup barStyle is set to </span><span class="style5">colour</span><span class="style1">; and to track the values doControl is set </span><span class="style5">true</span><span class="style1">.</span></text>
</content>
<content>
<layer>card</layer>
<id>7</id>
<text>4</text>
</content>
<content>
<layer>card</layer>
<id>8</id>
<text>210</text>
</content>
<content>
<layer>card</layer>
<id>9</id>
<text>Script of adjust pitch button:
on mouseUp
send doControl to cd btn "Pitch"
end mouseUp
Script of button Pitch:
on doControl
global Pitch
put ScrollBar(false, colour, true, 0, 7, Pitch, 1) into Pitch
